home *** CD-ROM | disk | FTP | other *** search
/ Quick PC 61 / Quick PC 61.iso / I386 / SASETUP.MSI / F77708_system_info.asp < prev    next >
Encoding:
Text File  |  2003-02-21  |  9.2 KB  |  313 lines

  1. <%@ Language=VBScript   %>
  2. <%    Option Explicit     %>
  3. <%
  4.     '-------------------------------------------------------------------------
  5.     ' System Information Status Page
  6.         ' Copyright (c) Microsoft Corporation.  All rights reserved. 
  7.         '-------------------------------------------------------------------------
  8. %>
  9.     <!-- #include virtual="/admin/inc_framework.asp" -->
  10. <%
  11.     '-------------------------------------------------------------------------
  12.     ' Global Variables
  13.     '-------------------------------------------------------------------------
  14.     Dim rc
  15.     Dim page
  16.     Dim OSName
  17.     Dim OSVersion
  18.     Dim OSManufacturer
  19.     Dim OSSerialNumber
  20.     Dim SystemManufacturer
  21.     Dim SystemModel
  22.     Dim SystemType
  23.     Dim SystemProcessor
  24.     Dim SystemTotalMemory
  25.     Dim SystemBIOS
  26.     Dim SystemServiceTag
  27.     Dim DiskSpace
  28.     Dim NbDisks
  29.  
  30.     Dim SOURCE_FILE
  31.     Const ENABLE_TRACING = TRUE
  32.     SOURCE_FILE = SA_GetScriptFileName()
  33.     
  34.     '-------------------------------------------------------------------------
  35.     ' Global Form Variables
  36.     '-------------------------------------------------------------------------
  37.     
  38.     '-------------------------------------------------------------------------
  39.     ' Local Variables
  40.     '-------------------------------------------------------------------------
  41.     
  42.     Dim L_SIPAGE_TITLE        
  43.     Dim L_SIOS_NAME            
  44.     Dim L_SIOS_VERSION        
  45.     Dim L_SIOS_MFCT        
  46.     Dim L_SISYSTEM_MFCT        
  47.     Dim L_SISYSTEM_MODEL    
  48.     Dim L_SISYSTEM_TYPE        
  49.     Dim L_SISYSTEM_PROC        
  50.     Dim L_SISERVICE_TAG        
  51.     Dim L_SIBIOS_VER        
  52.     Dim L_SIPHYSICAL_MEMORY    
  53.     Dim L_SIDISK_SPACE        
  54.     Dim L_SIDISK_SPACE_VALUE        
  55.     Dim L_SIMB                
  56.     'error messages
  57.     Dim L_SIWMI_ERROR
  58.     
  59.     L_SIPAGE_TITLE        =GetLocString("sysinfomsg.dll","4088000A", "")
  60.     L_SIOS_NAME        =GetLocString("sysinfomsg.dll","4088000B", "")
  61.     L_SIOS_VERSION        =GetLocString("sysinfomsg.dll","4088000C", "")
  62.     L_SIOS_MFCT        =GetLocString("sysinfomsg.dll","4088000D", "")
  63.     L_SISYSTEM_MFCT        =GetLocString("sysinfomsg.dll","4088000E", "")
  64.     L_SISYSTEM_MODEL    =GetLocString("sysinfomsg.dll","4088000F", "")
  65.     L_SISYSTEM_TYPE        =GetLocString("sysinfomsg.dll","40880010", "")
  66.     L_SISYSTEM_PROC        =GetLocString("sysinfomsg.dll","40880011", "")
  67.     L_SISERVICE_TAG        =GetLocString("sysinfomsg.dll","40880012", "")
  68.     L_SIBIOS_VER        =GetLocString("sysinfomsg.dll","40880013", "")
  69.     L_SIPHYSICAL_MEMORY    =GetLocString("sysinfomsg.dll","40880014", "")
  70.     L_SIDISK_SPACE        =GetLocString("sysinfomsg.dll","40880015", "")
  71.     L_SIWMI_ERROR        =GetLocString("sysinfomsg.dll","C0880018", "")
  72.  
  73.     '======================================================
  74.     ' Entry point
  75.     '======================================================
  76.     
  77.     '
  78.     ' Create Page
  79.     rc = SA_CreatePage( L_SIPAGE_TITLE, "", PT_AREA, page )
  80.  
  81.     '
  82.     ' Show page
  83.     rc = SA_ShowPage( page )
  84.  
  85.     Public Function OnClosePage(ByRef PageIn, ByRef Reserved)
  86.         OnClosePage = TRUE
  87.     End Function
  88.     
  89.     
  90.     '======================================================
  91.     ' Web Framework Event Handlers
  92.     '======================================================
  93.     
  94.     '---------------------------------------------------------------------
  95.     ' Function:    OnInitPage
  96.     '
  97.     ' Synopsis:    Called to signal first time processing for this page. Use this method
  98.     '            to do first time initialization tasks. 
  99.     '
  100.     ' Returns:    TRUE to indicate initialization was successful. FALSE to indicate
  101.     '            errors. Returning FALSE will cause the page to be abandoned.
  102.     '
  103.     '---------------------------------------------------------------------
  104.     Public Function OnInitPage(ByRef PageIn, ByRef EventArg)
  105.         If ( ENABLE_TRACING ) Then
  106.             Call SA_TraceOut(SOURCE_FILE, "OnInitPage")
  107.         End If
  108.         
  109.         OnInitPage = GetSystemInfo()
  110.     End Function
  111.  
  112.     
  113.     '---------------------------------------------------------------------
  114.     ' Function:    OnServePageletPage
  115.     '
  116.     ' Synopsis:    Called when the page needs to be served. Use this method to
  117.     '            serve content.
  118.     '
  119.     ' Returns:    TRUE to indicate no problems occured. FALSE to indicate errors.
  120.     '            Returning FALSE will cause the page to be abandoned.
  121.     '
  122.     '---------------------------------------------------------------------
  123.     Public Function OnServeAreaPage(ByRef PageIn, ByRef EventArg)
  124.  
  125.         If ( ENABLE_TRACING ) Then
  126.             Call SA_TraceOut(SOURCE_FILE, "OnServePageletPage")
  127.         End If
  128.  
  129.  
  130.     %>    
  131.         <script language="JavaScript" src="<%=m_VirtualRoot%>inc_global.js">
  132.         </script>
  133.  
  134.         <script language="JavaScript">
  135.             function Init()
  136.             {
  137.             }
  138.         </script>
  139.  
  140. <table border="0" cellpadding="0" cellspacing="0" id="AutoNumber1" class="TasksBody">
  141.   <tr>
  142.     <td nowrap class="TasksBody"><%=L_SIOS_NAME%></td>
  143.     <td nowrap class="TasksBody"><i><%=OSName%></i></td>
  144.   </tr>
  145.   <tr>
  146.     <td nowrap class="TasksBody"><%=L_SIOS_VERSION%></td>
  147.     <td nowrap class="TasksBody"><i><%=OSVersion%></i></td>
  148.   </tr>
  149.   <tr>
  150.     <td nowrap class="TasksBody"><%=L_SIOS_MFCT%></td>
  151.     <td nowrap class="TasksBody"><i><%=OSManufacturer%></i></td>
  152.   </tr>
  153.    <tr>
  154.     <td nowrap class="TasksBody"><%=L_SISYSTEM_MFCT%></td>
  155.     <td nowrap class="TasksBody"><i><%=SystemManufacturer%></i></td>
  156.   </tr>
  157.   <tr>
  158.     <td nowrap class="TasksBody"><%=L_SISYSTEM_MODEL%></td>
  159.     <td nowrap class="TasksBody"><i><%=SystemModel%></i></td>
  160.   </tr>
  161.   <tr>
  162.     <td nowrap class="TasksBody"><%=L_SISYSTEM_TYPE%></td>
  163.     <td nowrap class="TasksBody"><i><%=SystemType%></i></td>
  164.   </tr>
  165.   <tr>
  166.     <td nowrap class="TasksBody"><%=L_SISYSTEM_PROC%></td>
  167.     <td nowrap class="TasksBody"><i><%=SystemProcessor%></i></td>
  168.   </tr>
  169.   <tr>
  170.     <td nowrap class="TasksBody"><%=L_SISERVICE_TAG%></td>
  171.     <td nowrap class="TasksBody"><i><%=SystemServiceTag%></i></td>
  172.   </tr>
  173.   <tr>
  174.     <td nowrap class="TasksBody"><%=L_SIBIOS_VER%></td>
  175.     <td nowrap class="TasksBody"><i><%=SystemBIOS%></i></td>
  176.   </tr>
  177.   <tr>
  178.     <td nowrap class="TasksBody"><%=L_SIPHYSICAL_MEMORY%></td>
  179.     <td nowrap class="TasksBody"><i><%=SystemTotalMemory%></i></td>
  180.   </tr>
  181.   <tr>
  182.     <td nowrap class="TasksBody"><%=L_SIDISK_SPACE%></td>
  183.     <td nowrap class="TasksBody"><i><%=DiskSpace%></i></td>
  184.   </tr>
  185. </table>
  186.     <%
  187.     
  188.         OnServeAreaPage = TRUE
  189.     End Function
  190.  
  191.     '---------------------------------------------------------------------------
  192.     '
  193.     ' Function:    GetSystemInfo
  194.     '
  195.     ' Synopsis:    
  196.     '
  197.     ' Arguments: [out] 
  198.     '
  199.     '---------------------------------------------------------------------------
  200.     Function GetSystemInfo
  201.         Err.clear
  202.         On Error Resume Next    
  203.  
  204.         Dim objService
  205.         Dim objInstance    
  206.         Dim objCollection
  207.         Dim arrStrings(1)
  208.         Dim strParam
  209.  
  210.  
  211.         Set objService = GetWMIConnection("")
  212.         Set objCollection = objService.InstancesOf ("Win32_OperatingSystem")
  213.  
  214.          If Err.Number <> 0 Then
  215.              Call SA_ServeFailurePageEx(L_SIWMI_ERROR & " ( " & Hex(Err.number) & " )", SA_DEFAULT) 
  216.         End If
  217.  
  218.         For each objInstance in objCollection
  219.             OSName = objInstance.Caption
  220.             OSVersion = objInstance.Version & " " & objInstance.CSDVersion & " build " & objInstance.BuildNumber
  221.             OSManufacturer = objInstance.Manufacturer
  222.             OSSerialNumber = objInstance.SerialNumber
  223.         Next
  224.  
  225.         objInstance = nothing    
  226.         objCollection = nothing
  227.  
  228.         Set objCollection = objService.InstancesOf ("Win32_ComputerSystem")
  229.  
  230.          If Err.Number <> 0 Then
  231.              Call SA_ServeFailurePage (L_SIWMI_ERROR & " ( " & Hex(Err.number) & " )", SA_DEFAULT) 
  232.         End If
  233.  
  234.         For each objInstance in objCollection
  235.             SystemType= objInstance.SystemType
  236.             SystemModel = objInstance.Model
  237.             SystemManufacturer = objInstance.Manufacturer
  238.             SystemTotalMemory = objInstance.TotalPhysicalmemory
  239.         Next
  240.     
  241.         arrStrings(0) = CStr(Round(SystemTotalMemory/1024/1024,0))
  242.         strParam = arrStrings
  243.         SystemTotalMemory = GetLocString("sysinfomsg.dll","40880016", strParam)
  244.  
  245.         objInstance = nothing    
  246.         objCollection = nothing
  247.  
  248.         Set objCollection = objService.InstancesOf ("Win32_BIOS")
  249.  
  250.          If Err.Number <> 0 Then
  251.              Call SA_ServeFailurePage (L_SIWMI_ERROR & " ( " & Hex(Err.number) & " )", SA_DEFAULT) 
  252.         End If
  253.  
  254.         For each objInstance in objCollection
  255.             SystemBIOS= objInstance.Version
  256.         Next
  257.  
  258.         objInstance = nothing    
  259.         objCollection = nothing
  260.  
  261.         Set objCollection = objService.InstancesOf ("Win32_SystemEnclosure")
  262.  
  263.          If Err.Number <> 0 Then
  264.              Call SA_ServeFailurePage (L_SIWMI_ERROR & " ( " & Hex(Err.number) & " )", SA_DEFAULT) 
  265.         End If
  266.  
  267.         For each objInstance in objCollection
  268.             SystemServiceTag= objInstance.SerialNumber
  269.         Next
  270.  
  271.         objInstance = nothing    
  272.         objCollection = nothing
  273.  
  274.         Set objCollection = objService.InstancesOf ("Win32_processor")
  275.  
  276.          If Err.Number <> 0 Then
  277.              Call SA_ServeFailurePage (L_SIWMI_ERROR & " ( " & Hex(Err.number) & " )", SA_DEFAULT) 
  278.         End If
  279.  
  280.         For each objInstance in objCollection
  281.             SystemProcessor= objInstance.Description
  282.         Next
  283.  
  284.         objInstance = nothing    
  285.         objCollection = nothing
  286.  
  287.         Set objCollection = objService.InstancesOf ("Win32_DiskDrive")
  288.  
  289.          If Err.Number <> 0 Then
  290.              Call SA_ServeFailurePage (L_SIWMI_ERROR & " ( " & Hex(Err.number) & " )", SA_DEFAULT) 
  291.         End If
  292.  
  293.         DiskSpace = 0
  294.         NbDisks = 0
  295.         For each objInstance in objCollection
  296.             DiskSpace = DiskSpace + objInstance.Size
  297.             NbDisks = NbDisks + 1
  298.         Next
  299.         arrStrings(0) = CStr(Round(DiskSpace/1024/1024/1024,0))
  300.         arrStrings(1) = CStr(NbDisks)
  301.         strParam = arrStrings
  302.         DiskSpace = GetLocString("sysinfomsg.dll","40880017", strParam)
  303.  
  304.         objInstance = nothing    
  305.         objCollection = nothing
  306.  
  307.         GetSystemInfo = TRUE
  308.  
  309.     End Function
  310.  
  311.     
  312. %>
  313.